home *** CD-ROM | disk | FTP | other *** search
/ Long Ban 3 / Long Ban 3 - Disc 1.iso / mac / DISK1 / DATA / phot.Dxr / 00005.ls < prev    next >
Encoding:
Text File  |  1997-03-22  |  746 b   |  38 lines
  1. global gautospeed
  2.  
  3. on setspeed n
  4.   case n of
  5.     1:
  6.       set gautospeed to 180
  7.       set the visible of sprite 2 to 0
  8.       set the visible of sprite 3 to 1
  9.       set the visible of sprite 4 to 1
  10.     2:
  11.       set gautospeed to 300
  12.       set the visible of sprite 2 to 1
  13.       set the visible of sprite 3 to 0
  14.       set the visible of sprite 4 to 1
  15.     3:
  16.       set gautospeed to 600
  17.       set the visible of sprite 2 to 1
  18.       set the visible of sprite 3 to 1
  19.       set the visible of sprite 4 to 0
  20.   end case
  21. end
  22.  
  23. on getspeed
  24.   return gautospeed
  25. end
  26.  
  27. on changemode
  28.   set the visible of sprite 5 to not (the visible of sprite 5)
  29. end
  30.  
  31. on isautomode
  32.   return not (the visible of sprite 5)
  33. end
  34.  
  35. on ispausemode
  36.   return the visible of sprite 5
  37. end
  38.